function list_selectedfiles()
% make a listing of the files with selections in the control worksheet...
% 1/9/99 P. Manis.
%
CONTROL = getuserdata;
if(isempty(CONTROL))
    QueMessage('Control is empty! ');
    return;
end
select = 2;
% make summary data information
sel_files = find([CONTROL.pnd] == select); 
nfiles=length(sel_files);
disp(sprintf('cd /home/pmanis/'));
for i=sel_files
   s=upper(CONTROL(i).filename);
   disp(sprintf('cp /mnt/cdrom/VCN/%12s /home/pmanis',s));
   disp(sprintf('gzip -f -9 %12s', s));
%   disp(sprintf('rm %12s', s)); % not needed with gzip - because it does it automatically...
end
% disp(sprintf('\n%d files', nfiles));
sel_files
return;
